home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t1.d64 / easy math.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  206 lines
  1. 1 PRINT"[147]"CHR$(142):POKE53280,15:POKE53281,1
  2. 2 REM*********************************
  3. 3 REM*                               *
  4. 4 REM*  WRITTEN BY:                  *
  5. 5 REM*                               *
  6. 6 REM*          JAMES W. WHITEWOOD   *
  7. 7 REM*                               *
  8. 8 REM*********************************
  9. 9 REM
  10. 13 MU=9
  11. 15 PRINT"[147] DO YOU WANT TO TRY BIG NUMBERS";
  12. 17 INPUTA$:IFASC(A$)=89THENMU=99
  13. 19 DIM NU$(9,7)
  14. 20 RESTORE:PRINT"[147]WOULD YOU LIKE TO DO"
  15. 30 PRINT
  16. 40 PRINT"        ADDITION    (+)"
  17. 50 PRINT
  18. 60 PRINT"     OR SUBTRACTION (-)";
  19. 70 FORI=0TO9:FORJ=1TO7:READNU$(I,J):NEXTJ,I
  20. 80 INPUTA$
  21. 90 IFA$="-"THEN5000
  22. 100 IFA$<>"+"THEN20
  23. 110 N1=INT(RND(0)*MU)+1
  24. 120 N2=INT(RND(0)*MU)+1
  25. 130 AN=N1+N2
  26. 140 N1$=RIGHT$(STR$(N1+100),2)
  27. 150 N2$=RIGHT$(STR$(N2+100),2)
  28. 160 AN$=STR$(AN)
  29. 170 PRINT"[147]";
  30. 180 FORI=1TO7
  31. 190 PRINTTAB(10);NU$(VAL(MID$(N1$,1,1)),I)
  32. 200 NEXTI
  33. 210 PRINT"";
  34. 220 FORI=1TO7
  35. 230 PRINTTAB(20);NU$(VAL(MID$(N1$,2,1)),I)
  36. 240 NEXTI
  37. 245 IFA$="-"THENGOTO5100
  38. 250 PRINT""
  39. 260 PRINT"     [146]"
  40. 270 PRINT"     [146]"
  41. 280 PRINT"       [146]"
  42. 290 PRINT"     [146]"
  43. 300 PRINT"     [146]"
  44. 310 PRINT""
  45. 320 FORI=1TO7
  46. 330 PRINTTAB(10);NU$(VAL(MID$(N2$,1,1)),I)
  47. 340 NEXTI
  48. 350 PRINT""
  49. 360 FORI=1TO7
  50. 370 PRINTTAB(20);NU$(VAL(MID$(N2$,2,1)),I)
  51. 380 NEXTI
  52. 390 PRINT
  53. 400 FORI=1TO29:PRINT"[192]";:NEXTI
  54. 410 X=19:GOSUB60000:GOSUB420:GOTO470
  55. 420 PRINT""
  56. 430 PRINTTAB(28)"WHAT NUMBER"
  57. 440 PRINTTAB(28)"GOES IN THE"
  58. 450 PRINTTAB(28)"   BOX   [157][157][157]";
  59. 460 INPUTA:RETURN
  60. 470 Z= VAL(MID$(AN$,LEN(AN$),1))
  61. 480 IFA<>ZTHENGOSUB59000:GOSUB5560:GOSUB420:GOTO480
  62. 485 GOSUB5500
  63. 490 PRINT""
  64. 500 FORI=1TO7
  65. 510 PRINTTAB(20);NU$(A,I)
  66. 520 NEXTI
  67. 530 X=9:GOSUB60000:GOSUB420
  68. 535 Z=VAL(MID$(AN$,LEN(AN$)-1,1))
  69. 540 IFA<>ZTHENGOSUB59000:GOSUB5560:GOSUB420:GOTO540
  70. 545 GOSUB5500
  71. 550 PRINT""
  72. 560 FORI=1TO7
  73. 570 PRINTTAB(10);NU$(A,I)
  74. 580 NEXTI
  75. 590 IFLEN(AN$)<4THEN670
  76. 600 X=0:GOSUB60000:GOSUB420
  77. 610 Z=VAL(MID$(AN$,LEN(AN$)-2,1))
  78. 620 IFA<>ZTHENGOSUB59000:GOSUB5560:GOSUB420:GOTO620
  79. 625 GOSUB5500
  80. 630 PRINT""
  81. 640 FORI=1TO7
  82. 650 PRINT" ";NU$(A,I)
  83. 660 NEXTI
  84. 670 REM
  85. 680 PRINT""TAB(28);"WOULD YOU "
  86. 681 PRINTTAB(28);"LIKE TO TRY"
  87. 682 PRINTTAB(28);"AGAIN";
  88. 690 INPUTA$
  89. 700 IFLEFT$(A$,1)="Y"THEN20
  90. 710 PRINT"[147]   THANK-YOU VERY MUCH FOR PLAYING"
  91. 720 PRINT"  I HOPE THAT YOU LEARNED SOMETHING"
  92. 730 PRINT"        GOOD BYE FOR NOW....."
  93. 740 END
  94. 5000 REM
  95. 5005 N1=INT(RND(0)*MU)+1
  96. 5010 N2=INT(RND(0)*MU)+1
  97. 5020 AN=N1-N2
  98. 5030 IFAN>0THEN5090
  99. 5040 N=N1
  100. 5050 N1=N2
  101. 5060 N2=N
  102. 5070 AN=N1-N2
  103. 5080 IFAN=0THENGOTO5000
  104. 5090 GOTO140
  105. 5100 PRINT""
  106. 5110 PRINT"         "
  107. 5120 PRINT"         "
  108. 5130 PRINT"       [146]"
  109. 5140 PRINT"         "
  110. 5150 PRINT"         "
  111. 5160 GOTO310
  112. 5500 PRINT""TAB(32);"  [190]  [188][146]"
  113. 5510 PRINTTAB(32);" [190][219]  [219][188][146]"
  114. 5520 PRINTTAB(32);"       [146]"
  115. 5530 PRINTTAB(32);" [187][202][192][192][203][172][146]"
  116. 5540 PRINTTAB(32);"  [187]  [172][146]"
  117. 5550 RETURN
  118. 5560 PRINT""TAB(32);"  [190]  [188][146]"
  119. 5570 PRINTTAB(32);" [190][192]  [192][188][146]"
  120. 5580 PRINTTAB(32);"       [146]"
  121. 5590 PRINTTAB(32);" [187][213][192][192][201][172][146]"
  122. 5600 PRINTTAB(32);"  [187]  [172][146]"
  123. 5610 RETURN
  124. 59000 PRINT""
  125. 59010 PRINTTAB(28)"I'M SORRY  "
  126. 59020 PRINTTAB(28)"THAT'S IS  "
  127. 59030 PRINTTAB(28)"NOT RIGHT"
  128. 59040 FORI=1TO2000:NEXTI:RETURN
  129. 60000 PRINT""
  130. 60010 PRINTTAB(X);" [176][192][192][192][192][174]"
  131. 60020 FORI=1TO5
  132. 60030 PRINTTAB(X);" [221]    [221]"
  133. 60040 NEXTI
  134. 60050 PRINTTAB(X);" [173][192][192][192][192][189]"
  135. 60060 RETURN
  136. 60930 DATA"     [146] "
  137. 60940 DATA" [146]     [146]"
  138. 60950 DATA" [146]     [146]"
  139. 60960 DATA" [146]     [146]"
  140. 60970 DATA" [146]     [146]"
  141. 60980 DATA" [146]     [146]"
  142. 60990 DATA"     [146] "
  143. 61000 DATA"    [146]  "
  144. 61010 DATA"    [146]  "
  145. 61020 DATA"  [146]  [146]  "
  146. 61030 DATA"    [146]  "
  147. 61040 DATA"    [146]  "
  148. 61050 DATA"    [146]  "
  149. 61060 DATA"     [146] "
  150. 61070 DATA"     [146] "
  151. 61080 DATA" [146]     [146]"
  152. 61090 DATA"      [146]"
  153. 61100 DATA"     [146] "
  154. 61110 DATA"   [146]   "
  155. 61120 DATA" [146]     "
  156. 61130 DATA"      [146]"
  157. 61140 DATA"     [146] "
  158. 61150 DATA" [146]     [146]"
  159. 61160 DATA"      [146]"
  160. 61170 DATA"     [146] "
  161. 61180 DATA"      [146]"
  162. 61190 DATA" [146]     [146]"
  163. 61200 DATA"     [146] "
  164. 61210 DATA"     [146] "
  165. 61220 DATA"     [146] "
  166. 61230 DATA"   [146]  [146] "
  167. 61240 DATA"  [146]   [146] "
  168. 61250 DATA"      [146]"
  169. 61260 DATA"     [146] "
  170. 61270 DATA"     [146] "
  171. 61280 DATA"      [146]"
  172. 61290 DATA" [146]     "
  173. 61300 DATA"    [146]  "
  174. 61310 DATA"     [146] "
  175. 61320 DATA"      [146]"
  176. 61330 DATA" [146]    [146] "
  177. 61340 DATA"    [146]  "
  178. 61350 DATA"     [146] "
  179. 61360 DATA"  [146]    "
  180. 61370 DATA" [146]     "
  181. 61380 DATA"     [146] "
  182. 61390 DATA" [146]     [146]"
  183. 61400 DATA" [146]     [146]"
  184. 61410 DATA"     [146] "
  185. 61420 DATA"      [146] "
  186. 61430 DATA" [146]     [146]"
  187. 61440 DATA"     [146] "
  188. 61450 DATA"    [146]  "
  189. 61460 DATA"    [146]  "
  190. 61470 DATA"    [146]  "
  191. 61480 DATA"    [146]  "
  192. 61490 DATA"     [146] "
  193. 61500 DATA" [146]     [146]"
  194. 61510 DATA" [146]     [146]"
  195. 61520 DATA"     [146] "
  196. 61530 DATA" [146]     [146]"
  197. 61540 DATA" [146]     [146]"
  198. 61550 DATA"     [146] "
  199. 61560 DATA"     [146] "
  200. 61570 DATA" [146]     [146]"
  201. 61580 DATA" [146]     [146]"
  202. 61590 DATA"      [146]"
  203. 61600 DATA"      [146]"
  204. 61610 DATA"     [146] "
  205. 61620 DATA"    [146]  "
  206.